home *** CD-ROM | disk | FTP | other *** search
/ SVM Mac CD-ROM 59 / SVM Mac CD-ROM - No 59.iso / demo camisole / Quai.Dxr / 00765.ls < prev    next >
Encoding:
Text File  |  1999-04-06  |  498 b   |  20 lines
  1. on mouseDown
  2.   global gNbErreurs, gNumIntrus, gListeDechets, gDecalageSprite
  3.   set vNumSprite to the clickOn
  4.   if getAt(gListeDechets, vNumSprite - gDecalageSprite) = 30 then
  5.     puppetSound("Jingle reussite")
  6.     CursReset(1)
  7.     go(the frame + 2)
  8.   else
  9.     if gNbErreurs >= 3 then
  10.       puppetSound("poubelle ECHEC", 1)
  11.       CursReset(1)
  12.       set gNumIntrus to 0
  13.       go(the frame + 2)
  14.     else
  15.       puppetSound("GQAIessa.AIF")
  16.       set gNbErreurs to gNbErreurs + 1
  17.     end if
  18.   end if
  19. end
  20.